graf.padrao<-function(dados){

if(is.numeric(dados[,2])==T)
	{
	if(any(dados[,3]=="C")) ###  "C" ---> Conchinchinean Journal of Nasty Graphs #####
		{
		x11()
		par(mar=c(7,5,2,1))
		par(cex.lab=3)
		par(las=2)
		par(tcl=1)
		par(cex.axis=1.5)
		par(col.axis="orange")
		plot(dados[,1]~dados[,2],pch=11,xaxp=c(min(dados[,2]),max(dados[,2]),10),yaxp=c(min(dados[,1]),max(dados[,1]),10),cex=3, col="turquoise1",ann=F)
		mtext(text=paste(colnames(dados[1])),side=2,cex=1.5,line=4,col="yellowgreen",las=0)
		mtext(text=paste(colnames(dados[2])),side=1,cex=1.5,line=5,col="hotpink",las=0)
		modelo<-lm(dados[,1]~dados[,2])
		modelo
		abline(modelo,col="blue",lty=2,lwd=3)
		}

	if(any(dados[,3]=="B")) #### "B" ---> Brazilian Journal of Relevant Issues
		{ 
		x11()
		par(mar=c(5,5,3,2))
		par(cex.lab=1,5)
		par(family="serif")
		par(las=1)
		par(tcl=0.3)
		par(bty="l")
		plot(dados[,1]~dados[,2],pch=19,xaxp=c(min(dados[,2]),max(dados[,2]),4),yaxp=c(min(dados[,1]),max(dados[,1]),4),ann=F,cex=0.9)
		par(family="sans")
		mtext(text=paste(colnames(dados[1])),side=2,line=3.5,las=0,cex=1.2)
		mtext(text=paste(colnames(dados[2])),side=1,line=3.5,las=0,cex=1.2)
		modelo<-lm(dados[,1]~dados[,2])
		modelo
		abline(modelo,lwd=1.2)
		}
	}


if(is.factor(dados[,2])==T)
	{
	if(any(dados[,3]=="C")) ###  "C" ---> Conchinchinean Journal of Nasty Graphs #####
	{
	par(cex=1.5)
	par(mar=c(4,4,3,2))
	par(family="serif")
	par(las=3)
	par(tcl=1)
	par(bty="l")
	boxplot(dados[,1]~dados[,2],col="wheat",border=2,yaxp=c(min(dados.cat.C[,1]),max(dados.cat.C[,1]),10))

	}

	if(any(dados[,3]=="B")) #### "B" ---> Brazilian Journal of Relevant Issues
	{
	boxplot(dados[,1]~dados[,2],boxwex=0.6)
	}
	}
